-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2741
-- card count: 7
-- first card id: 4525
-- list block id: 4208
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 36960 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  set userlevel to 5
  hide msg
  --hide menubar
end openStack

on reIndex
  lock screen
  push card
  repeat with x = 1 to the number of cards
    go to card x
    put bg fld "Index name"  & return after tempName
  end repeat
  repeat with x = 1 to the number of cards
    go to card x
    put tempName into bg fld "Index"
  end repeat
  pop card
  unlock screen with visual dissolve
end reIndex

on mergeStacks
  get the short name of this stack
  put it into oldName
  answer "Do you have a TidBITS Archive stack?" with "Create" or "Cancel" or "Yes"
  if it is "Cancel" then exit mergeStacks
  if it is "Create"
  then
  answer "Carefully name the stack TidBITS Archive." with "Cancel" or "OK"
  if it is "Cancel" then exit mergeStacks
  push card
  doMenu "Save A Copy..."
  set cursor to watch
  pop card
  createButton
  answer "Done. You may now delete the" && oldName && "stack." with "OK"
  exit mergeStacks
end if
set cursor to watch
lock screen
set lockMessages to true
repeat with x = 1 to the number of cards
  go to card x
  if the short name of this card is "About"
  then
  updateAbout
  next repeat
else
  doMenu "Copy Card"
  put "Copying card" && x && "from weekly stack…"
end if
push card
go to stack "TidBITS Archive"
go to last card
doMenu "Paste Card"
put "Pasting card" && x && "into TidBITS Archive stack…"
pop card
end repeat
push card
go to stack "TidBITS Archive"
put "Updating the index in TidBITS Archive…"
send "mouseUp" to bg btn "Index"
put "Compacting TidBITS Archive to save disk space…"
doMenu "Compact Stack"
pop card
hide msg
unlock screen with visual checkerboard
answer "Done. You are in the" && oldName && "stack." with "OK"
end mergeStacks

on updateAbout
  push card
  doMenu "Copy Card"
  go to stack "TidBITS Archive"
  go to first card
  doMenu "Paste Card"
  go to first card
  doMenu "Delete Card"
  pop card
end updateAbout

on createButton
  answer "Install a TidBITS Archive button in Home?" with "Cancel" or "OK"
  if it is "Cancel" then exit createButton

  set cursor to watch
  choose button tool
  put "on mouseup" into first line of buttonScript
  put "visual checkerboard" into second line of buttonScript
  put "go to stack TidBITS Archive" into third line of buttonScript
  put "end mouseup" into fourth line of buttonScript

  push card
  set lockmessages to true
  go Home
  set userlevel to 5
  set cursor to 3
  put "Please click where you want the upper left of the button placed."
  repeat while the mouseClick is false
  end repeat
  put the mouseloc into buttonLoc
  put item 1 of buttonLoc into xVal
  put item 2 of buttonLoc into yVal
  doMenu "New Button"
  set name of cd btn "New Button" to "TidBITS Archive"
  set style of cd btn "TidBITS Archive" to shadow
  set rect of button "TidBITS Archive" to xVal,yVal,xVal+108,yVal+22
  set the script of button "TidBITS Archive" to buttonScript
  choose browse tool
  put "All done with the button. Heading back now."
  wait 1 second
  hide message
  pop card
end createButton